  10 clear
  20 gosub 170
  30 gosub 250
  40 for M=1to 8
  50 cline M,M
  60 next M
  70 I=32
  80 for D=0to 255
  90 for A=1to 8
 100 color A,7,C,C+I,C+I+I
 110 C=C+3mul I
 120 if C>255C=rnd (4)+2
 130 next A
 140 MU=D
 150 next D
 160 STOP 
 170 for G=28to -28step -8
 180 for H=-75to 75step 25
 190 box H,G,8,6,1
 200 box H+30,G,8,6,2
 210 box H+60,G,8,6,3
 220 next H
 230 next G
 240 return
 250 for A=1to 8
 260 color A,7,91,251,165
 270 cline A,1
 280 next A
 290 CX=-33;CY=11
 300 FC=1
 310 print "COLOR",
 320 CX=CX+6
 330 FC=2
 340 print "BASIC",
 350 CX=-42;CY=-5
 360 print "HAS",
 370 CX=CX+6
 380 FC=3
 390 print "32",
 400 CX=CX+6
 410 FC=1
 420 print "COLORS!"
 430 return
